home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / DAC_GET.DMO < prev    next >
Text File  |  1996-07-04  |  2KB  |  51 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   DAC_GET .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. $INCLUDE "DAS-NB01.INC"
  19. COLOR 14,0
  20. CLS
  21.  
  22. ? "┌────────────────────────────────────────────────────────────────────────
  23. ? "│ DACget ( DAC?, R?, G?, B? )
  24. ? "│ DACset ( DAC?, R?, G?, B? )
  25. ? "├────────────────────────────────────────────────────────────────────────
  26. ? "│ These 2 are the bottom of the pile the, respectively, read/put the RGB
  27. ? "│ values to one DAC position.
  28. ? "└────────────────────────────────────────────────────────────────────────
  29.  
  30. DACget 63, R?, G?, B?
  31. PRINT USING "DAC 63   Red: ##  Green: ##  Blue: ##";R?,G?,B?
  32. PRINT
  33.  
  34. DACset  0, 42,  0, 42    ' PURPLE BACKGROUND
  35. PRINT "Yellow letters on a purple background"
  36. PRINT
  37. DELAY 2
  38.  
  39. DACset 0, 63, 0, 0
  40. PRINT "Yellow on a red background."
  41. PRINT
  42. DELAY 2
  43.  
  44. DACset 0, 0, 0, 0
  45. PRINT "Yellow on a black background, again."
  46.  
  47.  
  48.  
  49.  
  50.  
  51.